2  REM              Ϸ
3  REM    86 Ͳ -1840 - ¾ 882.01
4  REM
5  PORTC=&H3F9
6  REM    &h3f9 -       2
10 PORTD=&H3F8
11 REM    &h3f8 -     2
20 DATA "IN;SP1;PA100,100;PD;PA600,100;PU;"
30 READ A$
40 FOR I=1,33
50 T$=MID$(A$,I,1)
60 DAT=ASC(T$)
70 GOSUB 100
80 NEXT I
85 OUT PORTC,&H40
90 STOP
100 SC=INP(PORTC)
110 IF (SC AND 2) = 0 THEN GOTO 140
120 S = INP(PORTD)
130 IF S = 19 THEN GOTO 180
140 SC = INP(PORTC)
150 IF (SC AND 5) <> 5 THEN GOTO 140
160 OUT PORTD,DAT
170 RETURN
180 SC = INP(PORTC)
190 IF (SC AND 2) = 0 THEN GOTO 180
200 S = INP(PORTD)
210 IF S = 17 THEN GOTO 160
220 GOTO 200
230 REM s=19 - Xoff;     s=17 - Xon
